|
AutoCAD VBA : und-color: #FFFF99'>Suchen und Ersetzen per VBA
CADmium am 14.12.2010 um 09:13 Uhr (0)
Zitat:Original erstellt von michimueller85:Hi in AutoCad gibt es ja die schöne Funktion unter Bearbeiten "und-color: #FFFF99'>Suchen und ersetzen" gibt es einen VBA Befehl mit dem ich die gleichen Möglichkeiten habe?solche Funktionen wirst du dir mit VBA programmieren müssen ! .... dazu ist ja VBA da ... ob den Sachverhalt schon einer vor dir umgesetzt hat ???? ne Wahrscheinlichkeit dafür gibt es. In Lisp gibts da z.b. was bei www.cadmaro.de ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Besc ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : und-color: #FFFF99'>Suchen und Ersetzen per VBA
CADmium am 14.12.2010 um 10:30 Uhr (0)
du durchläufst die datenbank der Zeichnung , überprüfst die Properties der Objekte, wenn Text, wie ist der Textinhalt und stimmt der mit dem gesuchten überein ? ..... das werden einige Codezeileneine andere Variante ist , acad "und-color: #FFFF99'>suchen " zu lassen, das geht über Auswahlsätze und Auswahlfilter .. sind aber auch mehrere Zeile Code.Einen Befehl "Suche TEXT "ABC" " gbt es nicht.------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte de ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : und-color: #FFFF99'>Suchen und Ersetzen per VBA
CADmium am 14.12.2010 um 10:03 Uhr (0)
Zitat:Original erstellt von michimueller85:also gibts da wohl nix oder? (für VBA)wenns nix gibt, schreib was !!! Wo ist das Problem ? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach bestimmten elem und-color: #FFFF99'>suchen
CADmium am 13.09.2009 um 14:59 Uhr (0)
na die Property Text auslesen ...elem.textstring------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
CADmium am 26.03.2009 um 20:59 Uhr (0)
ich mach kein vba ... und ob ein ssget oder ein layoutscan .... hängt bei mir immer vom Einsatzzweck ab.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
CADmium am 26.03.2009 um 20:52 Uhr (0)
du kannst auch alle items des Layouts durchlaufen, testen, ob es sich um eine Blockref handelt und die Einfügepunktkoordinaten mit dem vorgegebenen Wert vergleichen ...------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 12:53 Uhr (0)
die Zeile in der Befehlzeile oder auf einen Button macht das auch ... ist aber Lisp (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 "*F30*"))))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 14:03 Uhr (0)
ja sorry ..muss heißen(defun C:LAYSEARCH(/ PATTERN) (setq PATTERN (getstring "
Suchtext: ")) (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 (strcat "*" PATTERN "*"))))))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach bestimmten elem und-color: #FFFF99'>suchen
CADmium am 13.09.2009 um 13:49 Uhr (0)
vielleicht solltest du elem.ObjectName = "AcDbText" und abfragen ob in textstring "Falsch" steht. (code hierfür ist mir bekannt)mit einem and verknüpfen und dann bei positivem Bescheid die Methode delete des Objekts aufrufen ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 13:28 Uhr (0)
(defun C:LAYSEARCH(/ PATTERN) (setq PATTERN (getstring "
Suchtext: ")) (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 (strcat "*"SUCHTEXT"*"))))))in eine Textdatei mit Endung lsp stellt dir nach dem Laden den Befehl LAYSEARCH zur Verfügung ...------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
CADmium am 01.03.2007 um 11:25 Uhr (0)
1.durch die Blocktabelle iterieren-bei jedem Block durch die Objektliste iterieren- jedes Objekt auf entsprechenden Layer testen- wenn TRUE, dann Blocknamen merken 2. durch die Blocktabelle (oder nur durch die Layoutblöcke, wenn keine Verschachtelungen berücksichtig werden sollen) iterieren - bei jedem Block durch die Objektliste iterieren- bei jeder Blockreferenz eines Blockes, von dem der NAme auf der MERKLISTE steht- Blockreferenzobject in die Auswahlliste(Auswahlsatz)------------------ - Thomas -"Bei ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnungseinstellungen auslesen
CADmium am 27.01.2006 um 12:26 Uhr (0)
zu 2. .. die WinkelEinheit des aktuellen Bemaßungsstiles ist auch in einer Sysvar abgespeichert!!!DIMAUNIT (Systemvariable) Typ: GanzzahlGespeichert in: ZeichnungAusgangswert: 0 Setzt das Einheitenformat für Winkelbemaßungen. Dezimalgrad 1 Grad/Minuten/Sekunden 2 Neugrad 3 BogenmaßSomit sysVarName = "INSUNITSDEFSOURCE"durch sysVarName = "DIMAUNIT"ersetzen und fertig ... dachte, das wäre naheliegend.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits m ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Tipps + Tutorial + WIN-API
CADmium am 23.01.2004 um 08:00 Uhr (0)
..bin beim und-color: #FFFF99'>Suchen auf folgenden Link gestoßen : Tolle Beispiele und sicher nicht nur für Einsteiger interessant: http://www.mentalis.org/agnet/appdown.shtml Gruß Thomas ------------------
|
| In das Form Autocad VBA wechseln |
